home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
me_cd22.zip
/
MUTT2.ZIP
/
EMACS.MUT
< prev
next >
Wrap
Lisp/Scheme
|
1992-04-27
|
409b
|
23 lines
;; emacs.mut
;; A few routines I don't put in init.mut that make ME more EMACS like.
;; C Durland Public Domain
(defun set-fill-column
{
(int col)
(col (if (arg-flag) (arg-prefix) (current-column)))
(if (< col 10)
(msg "Fill column too small.")
(msg "Fill column set to " (word-wrap col))
)
})
(defun
MAIN
{
(bind-to-key "set-fill-column" "C-xf")
}
)